home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / ear / mui23dev.lha / MUI / Developer / Oberon / txt / demo.mod < prev    next >
Text File  |  1994-02-03  |  310b  |  18 lines

  1. MODULE demo;
  2.  
  3. IMPORT  Dos, Mui;
  4.  
  5.   PROCEDURE fail*( app : Mui.Object; str : ARRAY OF CHAR );
  6.     BEGIN
  7.       IF app # NIL THEN
  8.         Mui.DisposeObject( app );
  9.       END;
  10.       IF str # "" THEN
  11.         IF Dos.PutStr( str )= 0 THEN END;
  12.         HALT( 20 );
  13.       END;
  14.       HALT( 0 );
  15.     END fail;
  16.  
  17. END demo.
  18.